home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dino Crisis Digital Press Kit
/
Dino Crisis Digital Press Kit.iso
/
mac
/
Xtras
/
Behavior Library for Java.cst
/
00051_Script_51
< prev
Wrap
Text File
|
1998-04-08
|
631b
|
38 lines
--java_play_done and java_play
-- Behavior Library 1.1 for Java Utility Lingo
global play_stack
on java_play dest
if voidp(play_stack) = TRUE then
set play_stack = []
end if
if stringp(dest) = True then
--assume string is a marker name
add (play_stack, the frame)
go frame marker(dest)
end if
if integerp(dest) = True then
add (play_stack, the frame)
go frame dest
end if
return
end
on java_play_done
if count (play_stack) < 1 then return
set x = getlast(play_stack)
deleteAt (play_stack, count(play_stack))
go frame x
end